home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / mail / mailx6 / _setup.1 / OCXFUNCT.BAS < prev    next >
Encoding:
BASIC Source File  |  1995-10-24  |  711 b   |  22 lines
  1. Attribute VB_Name = "FUNCTION"
  2. Sub NewMsgWnd(MsgControl As MMsg)
  3.     Dim MsgWnd As New MsgForm
  4.     MsgWnd.MMsg1.MsgID = MsgControl.MsgID
  5.     MsgWnd.szSubject = MsgWnd.MMsg1.Subject
  6.     MsgWnd.szNoteText = MsgWnd.MMsg1.NoteText
  7.     MsgWnd.szTime = MsgWnd.MMsg1.TimeReceived
  8.     MsgWnd.szMsgID = MsgWnd.MMsg1.MsgID
  9.     MsgWnd.MReci1 = MsgWnd.MMsg1
  10.     MsgWnd.szOriginator = MsgWnd.MReci1.RecipientName
  11.     MsgWnd.MFile1 = MsgWnd.MMsg1
  12.     FileNum = MsgWnd.MFile1.FileCount
  13.     For Index = 1 To FileNum
  14.         MsgWnd.MFile1.FileNum = Index
  15.         MsgWnd.szFileList.AddItem MsgWnd.MFile1.FileName
  16.     Next
  17.     If FileNum > 0 Then MsgWnd.szFileList.ListIndex = 0
  18.     MsgWnd.Show
  19.     
  20. End Sub
  21.  
  22.